home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b2.d64
/
exe122
< prev
next >
Wrap
Text File
|
2007-02-28
|
734b
|
36 lines
0010 DIM ANSW$ OF 10, ART$(10) OF 20
0020 //
0030 SETUP
0040 REQUEST
0050 //
0060 PROC SETUP
0070 ART$(1):="BROWN SUGAR"
0080 ART$(2):=""
0090 ART$(3):="SOAP FLAKES"
0100 ART$(4):="RIPE CHEESE"
0110 ART$(5):="CINNAMON"
0120 ART$(6):=""
0130 ART$(7):="CARDAMOM"
0140 ART$(8):="CURLED PARSLEY"
0150 ART$(9):="LIVER SAUSAGE"
0160 ART$(10):=""
0170 ENDPROC SETUP
0180 //
0190 PROC REQUEST
0200 REPEAT
0210 PRINT CHR$(147) //CLEAR SCREEN
0220 PRINT "ARTICLE NO.",
0230 INPUT NO
0240 PRINT
0250 IF ART$(NO)="" THEN
0260 PRINT "NO ARTICLE WITH THAT NUMBER!"
0270 ELSE
0280 PRINT "ARTICLE NO. ",NO,": ",ART$(NO)
0290 ENDIF
0300 PRINT
0310 PRINT "MORE REQUESTS (Y/N)",
0320 INPUT ANSW$
0330 UNTIL ANSW$="N"
0340 ENDPROC REQUEST
0350 //